package Data::Semantic::URI::TestData::file;

use strict;
use warnings;


our $VERSION = '0.01';


no warnings 'qw';    # Possible attempt to put comments in qw() list 

use constant TESTDATA => (
    {
        args => {},
        valid => [ qw(
            file://localhost/
            file://use.perl.org/hanekomu/journal
            file:///Users/marcel/file.txt
        ) ],
        invalid  => [ qw(
            news://localhost/
            file://?123
            http://use.perl.org/hanekomu/journal?entry=12345
            http://use.perl.org/~hanekomu/journal
            file:///Users/marcel/file.txt#foobar
        ) ],
    },
);


1;


__END__

{% PROCESS complete/semantic_testdata %}
